home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / slyded / mdimain.frm < prev    next >
Text File  |  1993-11-29  |  3KB  |  123 lines
  1. VERSION 2.00
  2. Begin MDIForm MDIMain 
  3.    Caption         =   "Slide Maker"
  4.    ClientHeight    =   4290
  5.    ClientLeft      =   735
  6.    ClientTop       =   2145
  7.    ClientWidth     =   7515
  8.    Height          =   4665
  9.    Icon            =   MDIMAIN.FRX:0000
  10.    Left            =   690
  11.    LinkTopic       =   "MDIForm1"
  12.    Top             =   1815
  13.    Width           =   7605
  14.    Begin PictureBox Picture1 
  15.       Align           =   1  'Align Top
  16.       BackColor       =   &H00C0C0C0&
  17.       Height          =   795
  18.       Left            =   0
  19.       ScaleHeight     =   765
  20.       ScaleWidth      =   7485
  21.       TabIndex        =   0
  22.       Top             =   0
  23.       Width           =   7515
  24.       Begin SSRibbon GroupPush3D4 
  25.          AutoSize        =   0  'None
  26.          GroupNumber     =   4
  27.          Height          =   675
  28.          Left            =   2100
  29.          PictureUp       =   MDIMAIN.FRX:0302
  30.          Top             =   30
  31.          Width           =   675
  32.       End
  33.       Begin SSRibbon GroupPush3D3 
  34.          AutoSize        =   0  'None
  35.          GroupNumber     =   3
  36.          Height          =   675
  37.          Left            =   1410
  38.          PictureUp       =   MDIMAIN.FRX:0B3C
  39.          Top             =   30
  40.          Width           =   675
  41.       End
  42.       Begin SSRibbon GroupPush3D2 
  43.          AutoSize        =   0  'None
  44.          GroupNumber     =   2
  45.          Height          =   675
  46.          Left            =   720
  47.          PictureUp       =   MDIMAIN.FRX:1376
  48.          Top             =   30
  49.          Width           =   675
  50.       End
  51.       Begin SSRibbon GroupPush3D1 
  52.          AutoSize        =   0  'None
  53.          Height          =   675
  54.          Left            =   30
  55.          PictureUp       =   MDIMAIN.FRX:1BB0
  56.          Top             =   30
  57.          Width           =   675
  58.       End
  59.       Begin CommonDialog CMDialog1 
  60.          DefaultExt      =   ".MDB"
  61.          DialogTitle     =   "Select a Contract Database"
  62.          Filename        =   "*.MDB"
  63.          Filter          =   "Access|*.mdb|dBase|*.dbf|Excel|*.xls|Lotus|*.wk1;*.wk3"
  64.          InitDir         =   "C:\"
  65.          Left            =   6450
  66.          Top             =   30
  67.       End
  68.    End
  69. End
  70.  
  71. Sub GroupPush3D1_Click (Value As Integer)
  72.  If Value Then
  73.   Slide.Text1.Visible = True
  74.  Else
  75.   Slide.Text1.Visible = False
  76.  End If
  77. End Sub
  78.  
  79. Sub GroupPush3D2_Click (Value As Integer)
  80.  If Value Then
  81.   Slide.Text2.Visible = True
  82.  Else
  83.   Slide.Text2.Visible = False
  84.  End If
  85. End Sub
  86.  
  87. Sub GroupPush3D3_Click (Value As Integer)
  88.  If Value Then
  89.   Slide.Text3.Visible = True
  90.  Else
  91.   Slide.Text3.Visible = False
  92.  End If
  93. End Sub
  94.  
  95. Sub GroupPush3D4_Click (Value As Integer)
  96.  If Value Then
  97.   Slide.Graph1.Visible = True
  98.  Else
  99.   Slide.Graph1.Visible = False
  100.  End If
  101. End Sub
  102.  
  103. Sub GroupPush3D5_Click (Value As Integer)
  104.  If Value Then
  105.   Beep
  106.  End If
  107. End Sub
  108.  
  109. Sub MDIForm_Load ()
  110. Load Slide
  111. Slide.Caption = "My Slide"
  112. Slide.Text1.Visible = False
  113. Slide.Text2.Visible = False
  114. Slide.Text3.Visible = False
  115. Slide.Graph1.Visible = False
  116. End Sub
  117.  
  118. Sub MDIOpen_Click ()
  119.     CMDialog1.Action = 1
  120.     Load Slide
  121. End Sub
  122.  
  123.